home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Keyboard Lingo.dir / Scripts_16_Key Down Script for Scene 3.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  787 b   |  32 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on keyDown
  6.   put the key into field "The Key" of castLib "Text"
  7.   puppetSprite(8, 1)
  8.   set the member of sprite 8 to member "downstate" of castLib "internal"
  9.   repeat with N = 10 to 13
  10.     puppetSprite(N, 1)
  11.   end repeat
  12.   if the shiftDown then
  13.     set the member of sprite 10 to member "Shift" of castLib "internal"
  14.   end if
  15.   if the commandDown then
  16.     set the member of sprite 11 to member "Command" of castLib "internal"
  17.   end if
  18.   if the controlDown then
  19.     set the member of sprite 12 to member "Control" of castLib "internal"
  20.   end if
  21.   if the optionDown then
  22.     set the member of sprite 13 to member "Option" of castLib "internal"
  23.   end if
  24. end
  25.  
  26. on keyUp
  27.   puppetSprite(8, 0)
  28.   repeat with N = 10 to 13
  29.     puppetSprite(N, 0)
  30.   end repeat
  31. end
  32.